home *** CD-ROM | disk | FTP | other *** search
/ Go64! / Go64_2000-01_2000_CSW_Side_A.d64 / src_mult+hi char < prev    next >
Text File  |  2023-02-26  |  2KB  |  63 lines
  1.  
  2.          *= $0810
  3.  
  4.          lda #$00      ;farbe schwarz
  5.          sta $0286     ;in cursorfarbe,
  6.          sta $d020     ;rahmenfarbe,
  7.          sta $d021     ;und hintergrund
  8.          jsr $e544     ;clr-routine(rom)
  9.          lda #$18      ;videoram:$0400
  10.          sta $d018     ;charset: $2000
  11.          lda $d016     ;
  12.          ora #$10      ;multicolor an
  13.          sta $d016     ;
  14.          lda #$0e      ;farbe hellblau
  15.          sta $d022     ;als multicolor 1
  16.          lda #$0f      ;farbe hellgrau
  17.          sta $d023     ;als multicolor 2
  18.  
  19.          ldx #$11      ;16 werte (+1)
  20. copy     lda charset,x ;aus tabelle
  21.          sta $1fff,x   ;in zeichensatz-1
  22.          dex           ;(screencode 0&1)
  23.          bne copy
  24.  
  25.          ldx #$00
  26. screen   lda #$00      ;screencode 0
  27.          sta $0400,x
  28.          lda #$01      ;screencode 1
  29.          sta $0401,x
  30.          lda #$0e      ;farbe 6(+bit 3)
  31.          sta $d800,x   ;in colorram
  32.          lda #$06      ;farbe 6 (kein
  33.          sta $d801,x   ;bit 3) in cram
  34.          inx
  35.          inx
  36.          cpx #$28     ;schon 40 zeichen?
  37.          bne screen   ;spring wenn nicht
  38.  
  39.          rts          ;ende
  40.  
  41.     ;-- zeichensatztabelle --
  42.  
  43. charset  .byte 0
  44.  
  45.          .byte %11011011  ;hex = $db
  46.          .byte %00110000  ;hex = $30
  47.          .byte %11011011  ;hex = $db
  48.          .byte %00110000  ;hex = $30
  49.          .byte %11100111  ;hex = $e7
  50.          .byte %00001100  ;hex = $0c
  51.          .byte %11100111  ;hex = $e7
  52.          .byte %00001100  ;hex = $0c
  53.  
  54.          .byte %00110101  ;hex = $35
  55.          .byte %01100000  ;hex = $60
  56.          .byte %11000111  ;hex = $c7
  57.          .byte %10001100  ;hex = $8c
  58.          .byte %01001100  ;hex = $4c
  59.          .byte %10000100  ;hex = $84
  60.          .byte %01100110  ;hex = $66
  61.          .byte %00111100  ;hex = $3c
  62.  
  63.